home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 July
/
1988-07.d64
/
zipper #2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
37 lines
10 rem copyright 1988 compute publications, inc. - all rights reserved
15 poke 53280,15:poke 53281,12:poke 646,1
20 print"[147] copyright 1988 compute! pub., inc."
30 printtab(11)"all rights reserved":fori=1to1500:next
40 fori=1to96:reada:x=x+a:next:ifx<>787236thenprint"data statement error":stop
50 restore:print"[147]":printtab(8)"press and hold space bar"
60 print:printtab(9)"to open musical zipper"
70 print:print:printtab(7)"hold u to hear upper voice
80 [153]:[153][163]7)"hold l to hear lower voice
90 poke650,128:rem repeat all keys. necessary when u and l are held down.
100 f=.9
110 v=54272:v1=54273:v2=54279:v3=54280:k=256
120 fort=vtov+23:poket,0:next
130 pokev+24,15
140 pokev+5,9:pokev+6,16:pokev+12,9:pokev+13,16
150 pokev+3,8:pokev+10,8
160 forq=1to48:readm,n:m=m*f:n=n/f
170 ifa$="l"thenm=0:rem cancels upper voice
180 ifa$="u"thenn=0:rem cancels lower voice
190 pokev1,int(m/k):pokev,m-int(m/k)*k
200 pokev3,int(n/k):pokev2,n-int(n/k)*k
210 pokev+4,65:gosub270:pokev+4,64
220 pokev+11,65:gosub280:pokev+11,64
230 geta$:ifa$=""then260
240 ifa$=" "thenf=f*1.05:rem space bar increases relative pitch factor
250 iff>4thenf=4:print:print" musical zipper is wide open![145][145]"
260 next:restore:goto160
270 fort=1to50:next:return
280 fort=1to35:next:return
290 data6430,9634,7217,8583,8101,8101,9634,6430,8583,6430,8583,4817,10814,6430
300 data9634,6430,9634,8101,12860,6430,12139,8101,12860,9634,9634,8583,8101
310 data8101,6430,8583,7217,7217,8101,7217,8583,5407,9634,7217,10814,7217,9634
320 data8583,8583,7217,8201,8583,7217,10814,8101,9634,6430,8583,6069,8101,6430
330 data6430,7217,6430,4817,4817,6069,6430,7217,6430,8583,8101,8101,6430,7217
340 data8101,8101,9634,6430,8583,7217,8101,8101,8583,9634,8101,8583,8583,8583
350 data7217,10814,9634,9634,8583,9634,8101,12860,6430,12139,6430,12860,6430